home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbactc.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-19  |  1.5 KB  |  51 lines
  1. (*===========================================================================*)
  2. (* Action command processor                                                  *)
  3. (*                                                                           *)
  4. (*   Copyright 1990, 1991, 1992 by H. Roy Engehausen.  All rights reserved.  *)
  5. (*                                                                           *)
  6. (*===========================================================================*)
  7.  
  8. (*===========================================================================*)
  9. (* Action command                                                            *)
  10. (*===========================================================================*)
  11.  
  12. PROCEDURE action_cmd (cmd_string : STRING);
  13.  
  14.   VAR
  15.     action_char : CHAR;
  16.     action_word : STRING[10];
  17.     word_cnt    : BYTE;
  18.  
  19.   BEGIN;
  20.  
  21.     strip_var(cmd_string, 'B');
  22.  
  23.     action_word := subword(@cmd_string, 1, 1);
  24.  
  25.     IF LENGTH(action_word) > 2 THEN
  26.       BEGIN;
  27.         send_message(message_err_2nd);
  28.         active_tcb^.error_sw := TRUE;
  29.         EXIT;
  30.       END;
  31.  
  32.     IF LENGTH(action_word) > 1 THEN
  33.       action_char := UPCASE(action_word[2])
  34.     ELSE
  35.       action_char := ' ';
  36.  
  37.     CASE action_char OF
  38.  
  39.       ' ', 'C', 'F', 'L', 'M', #1 : load_action(action_char);
  40.  
  41.       ELSE
  42.         BEGIN;
  43.           send_message(message_err_2nd);
  44.           active_tcb^.error_sw := TRUE;
  45.           EXIT;
  46.         END;
  47.  
  48.     END; (*----- End case statement on action_char --------------------------*)
  49.  
  50.   END;
  51.